VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsContacts"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Collection" ,"clsContact"
Attribute VB_Ext_KEY = "Member0" ,"clsContact"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Private mCol As Collection

Public Function Add(Email As String, FriendlyName As String, Status As String, Group As String, ListIndex As Integer, DisplayPicture As StdPicture, StatusText As String, Optional sKey As String) As clsContact
    Dim objNewMember As clsContact
    Set objNewMember = New clsContact

    objNewMember.Email = Email
    objNewMember.FriendlyName = FriendlyName
    objNewMember.Status = Status
    objNewMember.Group = Group
    objNewMember.ListIndex = ListIndex
    
    If IsObject(DisplayPicture) Then
        Set objNewMember.DisplayPicture = DisplayPicture
    Else
        objNewMember.DisplayPicture = DisplayPicture
    End If
    
    objNewMember.StatusText = StatusText
    
    If Len(sKey) = 0 Then
        mCol.Add objNewMember
    Else
        mCol.Add objNewMember, sKey
    End If

    Set Add = objNewMember
    Set objNewMember = Nothing

End Function

Public Property Get Item(vntIndexKey As Variant) As clsContact
Attribute Item.VB_UserMemId = 0
  Set Item = mCol(vntIndexKey)
End Property


Public Property Get Count() As Long
    Count = mCol.Count
End Property


Public Sub Remove(vntIndexKey As Variant)
    mCol.Remove vntIndexKey
End Sub


Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
    Set NewEnum = mCol.[_NewEnum]
End Property


Private Sub Class_Initialize()
    Set mCol = New Collection
End Sub


Private Sub Class_Terminate()
    Set mCol = Nothing
End Sub
